home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_212_rezlistthingrt.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  3.0 KB  |  84 lines
  1. global rezthing
  2. global replaceline
  3. put "Resource List" into where
  4. put rezthing into process
  5. repeat with x = 1 to the number of chars in process
  6. get char x of process
  7. if it is ";" then put "," into char x of process
  8. end repeat
  9. if word 1 of process is "Added:" then delete word 1 of process
  10. if word 1 of process is "Deleted:" then
  11. beep
  12. do restext("TEXT", "Exit", colorauthoringpath)
  13. end if
  14. if item 1 of  process is "snd " then
  15. if item 2 of process is not "<unnamed>" then
  16. put item 2 of process into TheSound
  17. play TheSound
  18. put empty into rezthing
  19. do restext("TEXT", "Exit", colorauthoringpath)
  20. end if
  21. put the text of window where into theTEXT
  22. if there is a window "Sounds List" then
  23. put the text of window "Sounds List" into holdrezTEXT
  24. put the number of lines of char 1 to offset(process, holdrezTEXT)¬¨
  25. of holdrezTEXT into rezreplaceline
  26. end if
  27. put item 1 of process into whatKind
  28. put item 2 of process into itsoldName
  29. put item 3 of process into itsID
  30. do showdialog 2, "505", , ,  "Untitled"
  31. if the result is empty then do restext("TEXT", "Exit", colorauthoringpath)
  32. put line 1 of the result into newname
  33. put FullResList("T=snd ", "O=N") into check
  34. get offset (newname, check)
  35. if it is "0" then
  36. do  RenameRes(RenamefilePath, itsID, whatkind, itsoldName, newname)
  37. put  newName into item 2 of process
  38. put process into line replaceline of theText
  39. set the text of window where to theTEXT
  40. put item 2 of process into TheSound
  41. play TheSound
  42. if there is a window "Sounds List" then
  43. put process into line rezreplaceline of holdrezTEXT
  44. set the text of window "Sounds List" to holdrezTEXT
  45. put empty into rezthing
  46. end if
  47. do restext("TEXT", "Exit", colorauthoringpath)
  48. end if
  49. if it is not "0" then
  50. do showdialog 1, "506","You must have a unique name for your sound in order for HyperCard to play it predictably. Please choose another name." , "True"
  51. if the result is "2" then do restext("TEXT", "Exit", colorauthoringpath)
  52. if the result is "1" then
  53. repeat
  54. do showdialog 2, "505", , ,  "Untitled"
  55. if the result is empty then do restext("TEXT", "Exit", colorauthoringpath)
  56. put line 1 of the result into newname
  57. put FullResList("T=snd ", "O=N") into check
  58. get offset (newname, check)
  59. if it is  "0" then
  60. do  RenameRes(RenamefilePath, itsID, whatkind, itsoldName, newname)
  61. put  newName into item 2 of process
  62. put process into line replaceline of theText
  63. set the text of window where to theTEXT
  64. put newname into TheSound
  65. play TheSound
  66. if there is a window "Sounds List" then
  67. put process into line rezreplaceline of holdrezTEXT
  68. set the text of window "Sounds List" to holdrezTEXT
  69. put empty into rezthing
  70. end if
  71. do restext("TEXT", "Exit", colorauthoringpath)
  72. end if
  73. if it is  not "0" then do showdialog 1, "506","You must have a unique name for your sound in order for HyperCard to play it predictably. Please try another name." , "True"
  74. if the result is "2" then do restext("TEXT", "Exit", colorauthoringpath)
  75. end repeat
  76. end if
  77. end if
  78. end if
  79. if item 1 of process is "PICT" then
  80. put item 3 of process into Preview
  81. picture Preview,  resource, windoid, true
  82. end if
  83. if item 1 of process is "ICON" then domenu "Icon..."
  84. put empty into rezthing